home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / m4-1_0_3.lha / m4-1.0.3 / checks / 48.patsubst < prev    next >
Text File  |  1992-12-19  |  394b  |  10 lines
  1. dnl /usr2/pinard/pub/m4-1.0.3/m4.texinfo:2234: Origin of test
  2. define(`upcase', `translit(`$*', `a-z', `A-Z')')dnl
  3. define(`downcase', `translit(`$*', `A-Z', `a-z')')dnl
  4. define(`capitalize1',
  5.      `regexp(`$1', `^\(\w\)\(\w*\)', `upcase(`\1')`'downcase(`\2')')')dnl
  6. define(`capitalize',
  7.      `patsubst(`$1', `\w+', `capitalize1(`\0')')')dnl
  8. capitalize(`GNUs not Unix')
  9. dnl @result{}Gnus Not Unix
  10.